#!/usr/bin/perl


@ARGV = qw# larry mor curly #; #强制使用这三个文件
while(<>){
chomp;
print "It was $_ that I saw in some stooge-like file!\n";
}


#! /usr/bin/perl -w

while(<STDIN>) {
   print;
}


#! /usr/bin/perl -w

while(<>) {
   print;
}

#! /usr/bin/perl -w
print <>; ### 相当于cat
print sort <>; ###相当于sort;
